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1 MODULE COBSDBEXCEPTION( 
Oe — = '1-011" ! file: COBDBEXCE.B32 Edit:STAN1011 
Be BEGIN 
09 PITITILILILI LLL LILI LILI LiL lili lili Liiiiitiiiiiiiitiie 

'@ 

00 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
00 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
00 'w ALL RIGHTS RESERVED. 


Oo 
o 


ie THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS Mt ie AND ae THE 


* 

® 

® 

® 

® 

® 

® 

ie INC OTICE. THIS SOFTW x 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
i CORPORATION. . 
® 

a 

® 

® 

® 

* 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

PITIIIIIIII LILI LLL LLL LLL LiL Lt LLL 
i 


44 
FACILITY: COBOL SUPPORT 


ABSTRACT 
This procedure is called from compiled code when a data base 


exception condition occurs. This procedure looks for an applicable 
USE procedure to handle the data base exception condition. 
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1 
7 : If one is not found, it invokes LIB$STOP to handle the data base 
: + exception condition. 
0 004 ’ : 
1 one ENVIRONMENT: Vax-11 User Mode 
004 : AUTHOR: RKR , CREATION DATE: 11-FEB-1981 
o? 094 : MODIFIED BY: 
4 004 ! 1-001 - Original Skeleton. RKR 11-FEB-1981 
48 0048 ! 1-002 - Actual code added. LB 11-MAR-1981 
49 sn ! 1-003 = Took out code that checked the DB code field (COBSB_USE CODE 
50 050 : equal to COSSK peUSS CODE) This code was moved to 
51 0051 : COBSSHANDLER. “LB 16-MAR-81 
5 BO3¢ ! 1-004 - Added diagrams of the data structures involved in COBSDBEXCEPTION. 
5 005 : Also compacted code and changed macro definition name to have a 
54 Boee : DBMS prefix. LB 19-MAR-81 
55 055 ! 1-005 - Replaced arbitrary signalling value for no DB USE procedure found 
5 6038 : with appropriate Symbol name now defined in COBMSGDEF. Added 
5 05 : corresponding entry in the EXTERNAL LITERAL declarations for 


COBSDBE XCEPTION 
1-011 


if: sep-19 1 99:90:85 «Heart ’SreScoawexce es2;1 88 GF 


this module. LB 24-MAR-81 
on nenges name of data base external Literal to t Ses" ESRT i Nut to Rtas 
C MDL. Changed refurn storys of SS$_CONT 
$$ “NORMAL. Changed calls to SIGNAL_STOP to a £6 LIB BSeTOP'? tor 
gonsistency reasons. Changed calls . LIBSSIGNAL to now take an 
FAO parameter (as is pyntecs tees te correct) even or the 
parameter that is getting passed is not an FAO parameter (note that 
the !+ directive in the message text will ignore it). Added code 
Soak into this routine that had previously been taken out (refer 
to revision nistery 1-003); that code by resides in. both places 
(here and in HANDLER). Added heaps of comments and optimized 
code by encasing eaule to LIBSSTOP in PBEGINGEND pt ocis. B 16-APR-81 
Changed search code for a DB USE procedure due to ge 3 design flaws 
in the original search alesrttan. Code now saves the first match of 
a USE procedure and continues searching through the N§se list for a 
locally defined one. If one is found, then the local one is 
invoked; otherwise, the saved procedure is invoked. Note that this 
code is executed at bse for she ore where there is an ON OTHER clause 
taeoning that COBSL . bit = 0) and when the looping count has not 
reached its :*) te 1 
Chan ed check Looping count to check .I instead of 
ro | USE cyese DBUSE Moved code that returned $s$ NORMAL to 
follow directly siter the call to LIBSSIGNA L instead of after the 
END directive. Added code to return SS$_NORMAL within the 
BEGIN-END blocks at every occurrence of an invocation of a USE 
procedure to correct flow problems. LB Y-81. 
inor provenance to generated code. PDG “9-AUG-81 
Declare LIBSSIGNAL external. SBL 22-Dec-1981 
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- Remove informational errors. STAN 24-Jul-1984. 
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Beit 1278681 384 99:90:48 COBRTL.SRCICOBDBEXCE.B ast . 

9 91 1 t+ 
9 092 1 ! SWITCHES: 
94 095 1 !- 

094 1 
9 Booz 1 SWITCHES ADDRESSING_MODE 
a 494 ! (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
99 Bn98 , te 
100 B08 1 ! LINKAGES: 
101 100 1! 
136 B18) : } NONE 
104 o105 1 
105 0104 1 !+¢ 
106 B82 1 ! TABLE OF CONTENTS: 
107 18 1 - 
108 0107 1 
109 0108 1 FORWARD ROUTINE 
110 0109 1 COBSDBEXCEPTION ; 
111 0110 1 
1g 0111 1 !¢4 
11 ois 1 ! INCLUDE FILES: 
114 0113 1! 
115 0114 1 ! Note that there is no require file for the data base 
116 0115 1 ! exception codes. These will be provided during Link 
117 0116 1 ! time as Link-time constants. 
118 0117 1 !- 
119 0118 #1 
120 0119 «+1 
121 0120 1 REQUIRE ‘RTLIN:COBDEF'; ! To find USE procedures 
\s¢ 0286 1 REQUIRE "RTLIN:RTLPSECT’ ; ! Macros for defining psects 
12 0657 1 LIBRARY ‘RTLSTARLE'; 
124 0658 1 
125 0659 1 !¢4 
126 0660 1 ! MACROS 
127 0661 1 !- 
128 0662 1 
129 0665 1 MACRO 
130 0664 1 
131 0665 1 DBMS_COND_VAL = 4,0,52,0%; ! Data Base Condition Value (status code) 
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! EQUATED SYMBOLS 
i NONE 


uw 
o~ 
o 


C0900 O08 NINN NINN NINO OO 


'¢ 
i] 


PSECT DECLARATIONS: 


DECLARE_PSECTS (COB) ; ! Declare psects for COBS facility 
1+ 


EXTERNAL REFERENCES: 
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1 
1 
1 
1 
1 
1 
1 
4 1 
4 1 
4 1 
4 1 
4 1 
4 1 
4 1 
4 1 
4 1 
4 1 
5 1 EXTERNAL ROUTINE 
5 1 LIBSSIGNAL, ! Signal 
5 1 LI6$S ! Signal_stop 
3 0686 COBSSINVOKE_USE : NOVALUE; i Invoke USE procedure 
5 0688 1 
5 0689 1 EXTERNAL LITERAL 
5 0690 1 
5 0691 1 !¢ 
: +93 ! Condition codes we need 
6 0694 1! Note that the !+ directive for the data base literal indicates to ignore 
6 0695 1! the next parameter in the LIBSSIGNAL parameter List. This is needed in 
6 0696 1! the case where the call to LIBSSIGNAL passes a condition value and an 
64 0697 1! address of a USE procedure which gets checked in COBSHANDLER. The address 
65 0698 1! of the USE procedure is not a FAO parameter, but an FAO count must still 
66 0699 1! be included (as is Syacectsset’ correct) in the call to LIBSSIGNAL in 
67 0700 1! the case that COBSHANDLER resorts to re-signalling the error, causing an 
68 0701 1! error message to be printed at user level. At that point, the address of 
69 0702 1! the USE procedure parameter must not be treated as an FAO parameter - 
4 34%, ' therefore the !+ takes care of it (by ignoring the parameter). 
3 0705 1 !- 
7 0706 1 
74 0707 1 COB$_LSTHNDLDB, ' Lost handler for data base exception - environment corrupted !+ 
75 0708 1 OTS$_FATINTERR; ! Fatal Internal Error 
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GLOBAL ROUTINE COBSDBEXCEPTION ( 


DBMS_STAT '\Ptr to a block which contains 
' '/the condition value & error msg. 
= 


lee 
! FUNCTIONAL DESCRIPTION: 


This procedure is called from compiled code when a data base 
exception occurs when accessing the data base. This procedure 
looks for an applicable USE precedure fo handle the error; if 

it can't find one, it LIBSSTOP's. If it finds one defined in 
the local program, it invokes the USE procedure; if it is not 
defined in the local program, it signals the data base exception 
condition which should then get processed in COBSHANDLER. 


i CALLING SEQUENCE: 
COBSDBEXCEPTION (dbms_stat.rr.r) 
i FORMAL PARAMETERS: 
DBMS_STAT.rr.r Ptr to a block which contains the error 


and the condition value to be LIB$SIGNAL‘ed 
(i.e. a message vector) 
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i IMPLICIT INPUTS: 
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' 
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] 
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1 
| 
' 
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! 
' 
; NONE 
' 
4 
] 
4 
‘ 
] 
i] 
1 
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' 
' 
' 
a 
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07 

08 : 

44 ! IMPLICIT OUTPUTS: 

4} : An error message may be signalled. 

13 i COMPLETION CODE: 

15 Returns SS$_NORMAL if success (LSB = 1) 

18 Otherwise, returns a zero. 

18 ie i SIDE EFFECTS: 

20 75 Calls LIBSSTOP if input parameters are insufficient or invalid. 
21 75 Also invokes LIBSSTOP if the frame pointer equals 0 (indicating 
$§ Le serious problems). 

34 ie i NOTES: 

53 75 For more information on the message vector, refer to 

$i a the SPUTMSG system service documentation. 

29 76 -- 
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* COBSL_USE LIT « 
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| a 
i 
| i Note that the DB USE List is structured as follows: 
i; i peg ye ee eli en hn agg ott age 
3 : | COBSB_USE_CODE : | 
E . COBSA_DBUSE_PNC ' | 
: ; ‘ ' COBSB_GDBUSE._CNT! COBSB_DBUSE_CNT* | 
4 . : COBSA_USE_PROC : BASE OF 1ST DATA BASE ENTRY 
‘ COBSA_USE _EOPR 2 | 
' Reece eocooeeeeesoeoeeeeeeee Seeeeewceococescococeeccecce ® } 
! 
i 
i 


+ 


Note that the above fields are defined as follows: 


COBSB_USE_CODE = generic code indicating that the USE List 
pertains to data base exceptions 
COBSA_DBUSE_PNC -address of Perform Nest tounter” tor declaring 


COBSB_DBUSE_CNT number of data base USE precomeres defined in 
p ereeree, This includes both local and 
globe procedures defined in both this program 
and camgreres erceren 8. 
COB$B_GDBUSE_CNT-number of global data base USE procedures 
efined in the local ose? gram. 
COBSA_USE_PROC = address of Cote base USE proced | 
COBSA_USE_EOPR = pointer to the end of the Pertors Range Block | 
for the USE procedure if the entry was defined 
in this program or 0 if it was defined in a 
containing program. | 
COBSL_USE_LIT - : cate, bone exception Literal or 0 for "ON OTHER’ 
or no | 
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0804 1 
75 05 1 t¢ 
7g 06 sues that this is the DBMS_STAT block (referred to as 
7 07 ltam essage. vector) that is the input parameter to 
78 bs 1! FOBS08E EP TION. Note that this particular example 
79 09 1! is for one that contains FAO parameters. There can 
80 \9 a. be other formats, where the condition code is either 
81 11 1°! an RMS status or a system service status, which in 
6 \¢ 1 ! both cases, do not take ee FAO parameters. Also note 
1 1 ! that the numbers in parentheses are ds ons rye" ful fer 
14 1°! this sample block. {he # of Lon words n 
5 15 1 ! block can be up to 255. Also, the # of FAO = leone 
1 1 ! that can be passed : this block can be up to 16 for 
8 1 1 ! DBMS. 
88 pais 1! 
89 81 1! 
90 : ee RAHA AAAAAARAAAAARARARAEREKEKEAEEEEEAEEeEee 
91 0821 1! * # OF _LONGWORDS IN BLOCK (6) * 
35 08. ¢ 1 1 Poewneoeoesneoecoae seam e Swe se oe ono nme en oo aoe ® 
$3 08 1! * DBMS “CONDITION CODE (STATUS) _ ® 
94 08 4 1 1 BCweocmen enn asseecrnrsen are ewece See ee we 
5 0825 1! * 0 : # OF FAO ARGS (4) * 
9 0827 1! * _FAO ARG #1 * 
5 08 8 1 1 Power anan anna = ee eee nrecetwanreaseeeenwnerasaacoee 
: *° +34 8. * __FAO ARG #2 * 
2 08 0 1 i] Per en ween sere eo eee ne swe oe ee ewe (wo ee ee a co ® 
3 1 0831 1! * RAO ARG #3 * 
$ og ttt 1 i] Worormoemw eos eres eer sanwr enone e se ce ee eee mw eres ® 
; 0833 1! a FAO ARG #4 e 
: ene 0834 1! SeRKRAKRKeA eK eee eeeKeeeeeeeeeeereeereeres 
; 305 0835 1 !- 
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PT 16-Sep-1984 00:01: AX-11 Bliss-32 V4.0-74 
eo _ 1e-8ep-19 4 90:04:98 COBRTL. RCICOBDBEXCE.B 2:31 
iN BEGIN 
09 8 BUILTIN 
10 LLG, 
11 40 ACTUALPARAMETER, 
\§ 1 ACTUALCOUNT, 
1 4 FP; 
15 Oped MAP 
16 oBcs DBMS_STAT: REF BLOCKE BYTE), 
: 98 FP: REF BLOCKL,BYTEI; 
i $846 LOCAL 
0 0849 SFP: REF BLOCKC,BYTE), ' Saved FP oe 
1 0850 DBUSE: REF BLOCKCL,BYTEJ, ! Pointer to DB USE cist 
0851 DBUSE_ENT: REF BLOCKC,BYTE], ! Pointer to DB USE List entry 
085 SAVE_PNC: VOLATILE, ! Saved addr of PNC 
4 085 SAVE_EOPR: OLATILE, ' Saved addr of EOPR 
5 0854 SAVE_SAVED_AP: VOLATILE, ! Saved saved AP : 
26 0855 SAVE_ADDR_OSELST: VOLATILE, ! Saved addr of USE List 
27 0856 SAVE _ADDR_USEPROC; ! Saved addr of USE procedure 
sg Ose 's 
% 0859 ! Ensure that the DBMS_STAT argument is present 
31 re te 
3 ones i ACTUALCOUNT() EQL 0 THEN 1 ELSE .DBMS_STAT EQL 0) 
7 
3 0864 BEGIN 
36 0865 LIBSSTOP (OTSS_FATINTERR); 
37 9866 RETURN 0; 
38 086 3 
ig bB69 r 
1 0870 ! Initialize the local storage for the 
4g 0871 ' saved address of the USE procedure 
pers ' for later use. 
¢ bare % 
VE_ADDR_ = 0; 
0875 SAVE_ADDR_USEPROC 0 
4 0876 
48 0877 '¢ 
rh 0879 Search for an appropriate USE procedure. 
$5 asso SFP = .FPCSFSL_SAVE_FP); ' Get saved FP 
5 88 IF .SFP EQL 0 '\If FP equals zero, 
54 88 TH ! then we have 
55 0884 BEGIN '/serious problems 
28 885 LIBSSTOP (OTSS_FATINTERR); 
3 a 0; 
59 8 ; ELSE 
BEGIN 
1 DBUSE = .SFPCCOBSA_DB_USE]; '\Fetch address at offset 
0891 : 8 from stack to obtain 
5 0892 '/a ptr to a DB USE List 
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; nt 3 IF_ .DBUSE NEQ 0 

; Saaz THEN 

F 47 4 BEGIN 

3 0897 4 

; +944 & 1? : 

; 899 4&4 ! The following check determines if this is a 

3 4 4 ! data base USE List. -The COBS$B_USE_CODE field 

: 901 4 ! should contain the generic code for the class of 

; 84 ? , data base exceptions (equal to COBSK_DBUSE_CODE). 

; 0904 4 

; 34'¢4 : IF .DBUSECCOBSB_USE_CODE] EQL COBSK_DBUSE_CODE 

; 0907 4 THEN 

; 0908 5 BEGIN 

3 34-44 2 DBUSE_ENT = DBUSECCOBSA_DBUSE_ENT]; ! Point to 1st DB USE entry 
3 0911 5§ 

$ 0912 5 '¢ 

3 0913 5 ! Find an applicable USE procedure. A USE procedure 

; 0914 5§ ! is applicable if COBSL_USE_LIT equals the data base 

3 eet? 2 1 exception or if cCOB$L_OSE_CIT equals zero. 

; 0917 5 

; 344 2 DECR — -DBUSECCOB$SB_DBUSE_CNT] - 1 TO 0 DO 

; 0920 6 IF .DBUSE_ENTCCOBSL_USE_LIT] EQL 0 OR 

; 0921 6 .DBUSE_ENTCCOBSL_USE_LIT] EQL .DBMS_STATCDBMS_COND_VAL] 
3 0922 6 THEN 

; 0923 7 BEGIN 

$ 0924 7 

; 0925 7 '¢ 

; 0926 7 ! If EOPR (ptr to end of perform range block) 

; 0927 7 ' not ge to zero, then we know that 

3 0928 7 ! the USE procedure is local, and we can invoke 

; 0929 7 ‘ it tanestatety- Otherwise, the data base 

3 0930 7 ' error should be LIBSSIGNAL‘ed. 

. b932 * 

; 0933 7 IF .DBUSE_ENTCCOBSA_USE_EOPR] NEQ 0 

; 0934 7 THEN 

$ 0935 8 BEGIN 

: 09 8 IF .DBUSE_ENTCCOBSL_USE_LIT] EQL 0 

3 09 8 THEN 

3; 409 0938 9 BEGIN 

: 610 0939 9 

; 411 0940 9 '¢ , 

3 $18 0941 9 ! If the Looping count equate zero, tangntng 
; 41 0942 9 ! there aren't any more USE procedures in the 
3 416 0943 9 ' List), then we can invoke this USE procedure. 
> 415 0944 9 !- 

: oig 0945 9 

3; (41 0946 9 IF .1 EQL 0 

; 418 0947 9 THEN 

: 419 0948 10 BEGIN 

; $20 0949 10 COBSSINVOKE_USE ( 
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-DBUSE_ENTCCOBSA_USE_PROC], ! Addr of USE procedure 
° ! Addr of USE List 
FPCSFSL_SAVE_APJ, 

. DBUSE_ERTCCOBSA_USE EQORI. ! EOPR 
-DBUSECCOBSA_DBUSE_PACJ); |! Perform Nest Ctr 

RETURN SS$_NORMAL; 

END 

LSE 

° 

At this point, we have found a USE procedure, 
but rather than — it immediately, we 
save its address and all other context required 
to invoke the USE procedure, and none on 
are for an additional match. This is 

due to the fact that the USE List is arranged 
in the order of global USE procedures defined 
in the local program, followed by local USE 
procedures defined in the local program. This 
method of saving the context of the Ist matched 
USE procedure now ensures that if a local USE 
procedure defined in the local program exists 
that it will be invoked rather than a globally 
defined one. 


GIN 


7 v . L_SAVE_AP); 
SAVE-EOPR = s DBUSE ENTCCOBSA_OSE FOPRI; 
SAVE -PNC = .DBUSECCOBSA_DBUSE_PNC); 


e we know that there is no ‘'ON OTHER" 


! clause (meaning that COBSA_USE_LIT is not 
' equal to zero), so we can just invoke the 
found USE procedure. 


BEGIN 
COBSSINVOKE pst ( 
-DBUSE_ENTCCOBSA_USE_PROC], ! Addr of USE procedure 
.bB ! Addr of USE List 
-FPCSFSL_SAVE API, 
-DBUSE_ERTCCOBSA_USE EOPRI, ' EOPR 
. DBUSECCOBSA_DBUSE_PNC)); ' Perform Nest Ctr 
ee SS$_NORMAAL ; 
END 
ELSE 
BEGIN 


procedures of the local program there. If found, 
then invoke the USE procedure at that level; 
otherwise, the error is re-signalled. 


LIBSSIGNAL (COBS_LSTHNDLDB,1,.DBUSE_ENTCCOBSA_USE_PROC]); 
RETURN SS$_NORMAL; 


SRVESRALLSSSLESSR 


END; 
DBUSE_ENT = .DBUSE_ENT + COB$S_DBUSE; ! Step to next entry 
END; ! End of DECR Loop 


D 2 
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1-011 12-80-1382 90:0) :49 COBRTL. RC ICOBDBEXCE .8 251 ’ (7) 
478 00 ! At this point, if ‘"SAVE_ADDR_USEPROC"’ not 
479 00. ' equal to zero, then we fiad previously found 
480 00 ' a USE procedure which is a globally defined 
481 Bt ! one in the local program, and saved its context. 
48 1 ! We can now invoke it. 
48 01 !- 
484 01 
485 01 IF_.SAVE_ADDR_USEPROC NEQ 0 
4 01 THEN 
487 01 COBSSINVOKE_USE ( 
488 01 » SAVE_ADDR_USEPROC, ! addr of USE procedure 
489 01 -SAVE_ADDR_USELST, ! Addr of USE List 
490 01 - SAVE_SAVEB_AP, ' Saved AP 
491 02 - SAVE_EOPR, ! Addr of EOPR 
49 02 « SAVE_PNC) ! addr of PNC 
49 8s ELSE 
4 0 
495 02 + 
4 02 Signal the error here ange oh that the USE 
49 02 procedure is a global one that is in a containing 
4 02 program. Need to get the FP of the containing 
4 Os program and check the defined global US 
08 
03 
03 
03 
03 
03 
03 
04 
04 
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PWN 0 OONO UE WIN 0 OD NAME WWM OC ODNOAOUE WN OCONOUE WOOO 


ee ee ae ee ae ee ee ee ee ce ae a ae a ee cc ae ee a ee ee ee a ee a a a a a a ed 
=POPINIWIWA & SMUT UT UTUT UT O OF “J. 09 0D 09 09 09 09 OD CD OD CD C0 Cd 0D CD C9 C0 00 0D CD CD CD CD CD CD CD CD CD CD CD 


LDV DUP PVP PV DPSS 


10 

11 
\¢ 4 
1 04 ! At this point, we know that there isn't an 

14 04 i applicable USE procedure, so the | recourse 

15 04 ! we have is to LIBSSTOP. The reason for this is that 

16 04 ' the COBSB_USE_CODE did not match with the code 

17 04 ! provided Tn COBSK_DBUSE_CODE. We also could have 

18 04 ' arrived here if DBUSE was equal to zero, indicating 

y Be there was no DB USE List to begin with. 

1 05 
3 05 END; '\End of code block that 

23 05 ! checks for a COBSK_DBUSE_CODE 
24 05 '/match 

25 05 END; '\End of code dealing with 

26 055 '‘/a valid ptr to a DB USE List 
$f 628 CALLG (.DBMS_STAT,LIBSSTOP); 

% 058 RETURN 0 ' Never gets here 

059 '\End of rH routine 
31 060 END; !/COBSDBEXCEPTION 


-TITLE COBSDBEXCEPTION 


o-oo 


| SORSSBERCEPT 100 
1-01 
- IDENT 
-EXTRN 


-EXTRN 
eEXTRN 


So 
oO 


o-0-C00000 -9o909°90 9 -9oMm—-9 - C9 9 9 9 | 00" OW" Owns CO 0 | Onwon 
OWN 9 9 999 “QOOCC COMM DION $0 (SUNS | BMN M0 $$ DWONO FWUYUIWNYPIMO 


57 000000006 
5E 


04 


52 1¢ 
000000006 


00 
52 F8 


NY SO OOWS @DNVMWOMO SxS 
= 
o 
< 
m 


IIWAWAITOIPOPINIPDY 2 2 SS OOOO 


5$: CLRL 


6$: MOVL 
04 AO 08 


7$: MOVL 


MOVUIDNMN00 FOO 


04 
08 AE 
oc 


8$: PUSHL 


Soo 
ASRS RN TO yams wv 
wv 
Cc 
” 
=x 
ae 


9$: TSTL 


oooo 
oooo 


oc 


2 
18-Sep-1986 09:01:45 


AX-11 Bliss-32 V4.0-74 
COBRTL.SRCJCOBDBEXCE .852;1 


\1-011\ 

IBSSIGNAL, LIBS$STOP 
OBSSINVOKE_USE 
COBS_LSTHNDCDB, OTS$_FATINTERR 
_COBSCODE.NOWRT, SHR, PIC,2 
COBSDBEXCEPTION, Save R2,R3,R4,R5,R6,R7 
LIBSSTOP, R7 

#16, SP 

APS 

1$ 

DBMS_STAT 

SAVE_ADDR_USEPROC 

B(FP), SFP 

#OTS$_FATINTERR 

#1, LTBSSTOP 


6 
-8(SFP), DBUSE 
$ 
DBUSE), #1 
2(R2), DBUSE_ENT 
(DBUSE), I 
1 
( 


DBUSE_ENT) 


CO—Wn i 
We 
fon Pr 


BMS_STAT, RO 
(DBOSE ENT), (RO) 
(DBUSE_ENT), R4 


4 
$ 
1 
$ 
3 
$ 
1, 8$ 

$ 
DBUSE_ENT), SAVE_ADDR_USEPROC 
USE, SAVE ADDR OSELST 


sw 
~~ 
n 
v 
~s 
>. 
wm 
4d 
m> 
o=<= 
as |] 
mn 
> 
< 
9° 
t 
> 
v 


SAVE _EOP 
(BBUSE)> SAVE_PNC 
(DBUSE) 


wa 
™m 
~ 
~" 
v 
~ 


BUSE 

(DBUSE_ENT) 

SAVE _ADDR_USEPROC 
SAVE _PNC 


ad bed 


a Ce YH 


—————_——— 


; 2 
COBSDBEXCEPT ION 16-Sep-1984 AX-11 Bliss-32 v4. Page 13 
1-011 1ergee= 188s 93:9b:43 «— ebert see Scospbekce 6S2:1 | ae | 
CAE DD 0008F PUSHL  SAVE_EOP : 1020 
C AE OD PUSHL SAVESAVED AP : 1019 
C AE DD 0009 PUSHL SAVE_ADDR OSE ST 3 1918 
32 DD 494 PUSHL save “ADDR-USEPR ; 101 
000000006 00 4 OO9A 10$ CALLS COBSSTNVDKE. OSE 3 
ms Spal BRB ; 1016 
63 DD OOOA3 11% PUSHL (DBUSE_ENT) : 1034 
01 DD QOOA PUSHL #1 ; 
00000000G 8F ODD OOOA PUSHL : OB$_LSTHNDLDB 3 
000000006 900 8 . OOAD CALLS LJSSS16N NAL 3 
50 1 B? ite 12$: move ‘i. RO : 1035 
53 g¢ CO O0Be 13$:  ADDL2 #12, DBUSE_ENT > 1038, 
83 F4 Q0O0BB 14$: SOBGEQ I, ; 0918 — 
67 06 BC FA it 4 15$: CALLG a@DBMS_STAT, LIBSSTOP : 1056. 
50 D4 000C2 168: CLRL RO z: 1060 
04 000C4 RET : | 
; Routine Size: 197 bytes, Routine Base: _COBSCODE + 0000 
s SS 1061 1 END 
, $33 1062 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: _COBSCODE 197 WNOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; Library Statistics 
ee ie eee ok ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
> _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 3 0 581 00:00.8 
; COMMAND QUALIFIERS 
; PLESEACHECH SEF BOLD, INE TEM, .APRML EE AUDTRACE ML S51 SOBs COOORE EMER IOR.ISs CORORE NES MSRC$: COBDBEXCE/UPDATE = (ENH$: COBDBEXCE 


3; Size: 197 code + 0 data bytes 


Papreec acer ton 
1-011 


; Run Time: 
; Elapsed Time: 
Lines/CPU Min 


115 pages 


: i : ci 
; Lexemes/CPU-Min: 25181 


; Memory Used: 
; Comp {tation C 


omplete 


2 
18-s6p-1986 00:01:43 
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